***                                                                                                                                                                                                                                                       
***                                                                                                                                                                                                                                                       
*** This Program already converted to Y2K                                                                                                                                                                                                                 
*** S&T Departement     on 29 April 1999 by Ben.Rahman                                                                                                                                                                                                    
***                                                                                                                                                                                                                                                       
***                                                                                                                                                                                                                                                       
set cent on                                                                                                                                                                                                                                               
@ 10,21 GET KODE PICT '@!'                                                                                                                                                                                                                                
@ 11,21 get name pict '@!'                                                                                                                                                                                                                                
@ 12,21 get tipe pict '@!'                                                                                                                                                                                                                                
@ 13,21 get unit pict '@!'                                                                                                                                                                                                                                
@ 14,21 get qant pict '@!'                                                                                                                                                                                                                                
@ 15,21 get bunit pict '@!'                                                                                                                                                                                                                               
@ 16,21 get sunit pict '@!'                                                                                                                                                                                                                               
@ 17,21 get trpric pict '99,999,999'                                                                                                                                                                                                                      
@ 18,21 get slpric pict '99,999,999'                                                                                                                                                                                                                      
@ 19,21 get stref  pict '99,999,999'                                                                                                                                                                                                                      
@ 19,60 get clref  pict '99,999,999'                                                                                                                                                                                                                      
@ 20,21 get stmax  pict '99,999,999'                                                                                                                                                                                                                      
@ 20,60 get clmax  pict '99,999,999'                                                                                                                                                                                                                      
@ 21,26 get buyinsel pict '9,999'                                                                                                                                                                                                                         
read                                                                                                                                                                                                                                                      
@ 10,70 GET fsale PICT 'Y'                                                                                                                                                                                                                                
READ                                                                                                                                                                                                                                                      
if fsale                                                                                                                                                                                                                                                  
   @ 11,70 GET hline PICT 'Y'                                                                                                                                                                                                                             
   @ 12,70 GET MEDS PICT 'Y'                                                                                                                                                                                                                              
   read                                                                                                                                                                                                                                                   
endif                                                                                                                                                                                                                                                     
@ 22,22 get nslpric  pict '99,999,999'                                                                                                                                                                                                                    
*         read                                                                                                                                                                                                                                            
*         do while efetang=ctod('  /  /    ') .or. efetang<=date()                                                                                                                                                                                        
@ 22,49 get efetang  pict '99/99/9999'                                                                                                                                                                                                                    
read                                                                                                                                                                                                                                                      
*         enddo                                                                                                                                                                                                                                           
RETURN                                                                                                                                                                                                                                                    
